RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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wow 
mw MMMM 
mw MMMM 
me mw mn mw 

mw mn mn 
nw mown mw 
mn nn mw 
mn mw nn 
mm own mw 

NMNMM nw 

MNMMM mn 

ooooco0c0cCa0 oo 

ooococg0c0cC0cC0 oo 
oo ago 
og oo 
oo oo oo 
oo og oo 
oo oo 
og oo 

ooocoococo0C0 

ooococcccCocCcd 
ee mn Munn 
ee mw MWwMnn 
ee nn nn mn 
ee nn nw nn 
i own ww “nw 
— I nw ww nn 
-—— nw ww own 
ee nn mw wn 
ee wnnn “nw 
-—e AWMWWnM nn 
wu usu 
wu wud 
wus usu dus —— —— 
wu uu wu = —— 
su Ud ad uu ag ne eg te ed ag ng ed et ed 
wu usu wus Eg ye ag ee se dg ed 
wu wus ww —— —— 
ww wu wus — _—— 
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**F ILE**1D**GETQS 


1B-sep-1964 00:41:08 VAN-IN Btise=32 V4.0-742 Page 1 
MODULE getqs ( {DENTS *v04-000' 


BLISS32L, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
NONEXTERNAL = LONG-RELATIVES 


vw 
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)ez 
BEGIN 


leueeneententeneenernenennennenterteeteerentereetnnentnennnnnntnernntrnttes 
ie 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT _GORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERV 


'@ 

'e S SOFTWARE IS FURNISHED UNDER A LICENSE 
i IN ACCORDANCE WITH T F 

I 


THI 

:* ONL S 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. TH 
Ni 


SESRENS 


* 
* 

* 

* 

* 

* 

® 

w 

'® & 
\@ * 
Ve TRANSFERRED” : 
* 

* 

* 

* 

* 

* 

® 

* 

* 


zc< mC 


'@ 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i. pokatitn. " NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


B FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 
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i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: Isolates a string delimited by '* or ‘"'. 
ENVIRONMENT: Transportable 

AUTHOR: R.W. Friday CREATION DATE: May, 1978 
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v64=000 Revision History 18885-1986 $3:0:8 — DISKSUMSMASTER:CMUNOFF -SRCIGETOS.BLISI "(25 


: re } "Revision History’ 

; it | | MODIFIED BY: 

; 44 1} 003 Randall 07-Mar-1983 

3 i 5 1 Global seal of alt weodules. Updated module names, idents, 
: ek : 7 copyright dates. Changed require files to BLISS library. 
; O48 | ie 

3 rH 049 1 


ss 48 164 144 188 188 284 188 offs 188 288 10s 188 288 288 Oe Oe oe oe ee Oe oes oe ee 8s ee ee ee ee 88 oe oe ee ee oe er oo 


GETQ 1b-se Sep-1984 VAK-11 Bliss-32 V4.0-742 3 
V *800 Module Level Declarations ~ep-1 7 90:30 ‘98 DISKSVMSMASTER: CRUNOFF. SRCIGETQS.BLI; A ie (3) 
: § 9 } ZSBTTL ‘Module Level Declarations’ 

: §4 é 1! 

; 55 23 TABLE OF CONTENTS: 

; ? 5 1 { INCLUDE FILES: 

: §9 § 1 LIBRARY "NXPORT:XPORT'; ! XPORT Library 

; 60 : REQUIRE "REQ:RNODEF'; i RUNOFF variant definitions 
: 6¢ U 0190 1 XIF DSRPLUS STHEN 

3 o7 U 13) } ,peReny TREQ?DPLLIB’: ! DSRPLUS BLISS Library 

: 65 198 1 LIBRARY "REQ:DSRLIB'; ! DSR BLISS Library 

; 66 194 1 %FI 

.. OF 195 1 

3 8 138 1! 

; 69 197 EXTERNAL REFERENCES: 

: 71 0199 1 EXTERNAL LITERAL 

; Le: 0 39 ! RINTES : UNSIGNED (8); 

; 0¢ 1 EXTERNAL 

; (OPS 03 1 IRA_: FIXED STRING, 

et 04 1 KHAR; 

ee 0205 1 
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GETQ 16-Sep-1984 00:41: VAX-11 Bliss-32 V4.0-742 P 4 
V *800 Module Level Declarations 12=808=1 38 90 boise DISKSVMSMASTER: CRUNOFF .SRCIGETQS.BLI:1>~ (4) 
GLOBAL ROUTINE GETQS (OUTPUT) = 


“oO 


++ 
FUNCTIONAL DESCRIPTION: 
GETQS expects the next input character to be either a ‘'" 
or a -,,2¢ collects all characters up through the 
matching ‘'*'’ or "'*"' and returns them in OUTPUT. 
FORMAL PARAMETERS: 
The results are returned in OUTPUT. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: 


See GETQSC.REQ for a List of completion codes. 


POPIPOPOIPUIPIPIPIPIPIPIPIPIPUNIPTTy 


SIDE EFFECTS: None 
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1 

1 

1 
BEGIN 
LOCAL 

TERMINATOR; 
MAP 
OUTPUT : REF FIXED STRING; 

4 

4 

4 

4 

4 

6 


IF .KHAR EQL RINTES 
THEN 'Nothing on Line. 
RETURN GETQS_NONE; 


TERMINATOR = (SELECTONE .KHAR OF 


Zc’''*) gc''") : SKHAR; 
COTHERWESE : RETURN GETQS_NONE; 
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FS_INIT (OUTPUT); 
KCAS (); 'Skip over the initial delimiter. 


WHILE .KHAR NEQ RINTES 
AND .KHAR NEQ .TERMINATOR DO 
GIN 
4 5 LENST (OUTPUT) EQL .FS_MAXSIZE (OUTPUT) 
BEGIN 'Skip extra characters. 


WHILE .KHAR NEQ RINTES 
“77 Pe NEQ . TERMINATOR) DO 
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GETQ 16-Sep-1984 00:41:08 VAX-11 Bliss-32 V4.0-742 P 
¥54-000 Module Level Declarations 1 ~300 71387 90 bse DISKSVMSMASTER:CRUNOFF.SRCIGETQS.BLI:1> (43 
7 63 4 IF .KHAR EQL .TERMINATOR 
5 ¥ $ 64 4 ines bideeetn 
; 138 9? 4 KCNS (); 
3; «6139 8 4 
: 139 0 ? 4 pe ruen GETQS_TOO_LONG; 
; 14 : 
: 128 & FS_WCHAR (OUTPUT, .KHAR); 
; 193 g} gcns Q); 'Get next character. 
: 146 0 be . 
: 1of fe IF .KHAR NEQ RINTES 
3 13) tS BLS KCNS () 'Skip delimiter, unless it's end of record. 
; 13 8 A RETURN GETQS_BAD; !Trailing terminator missing. 
: 138 0280 ‘Reset pointer to start of result, so user can do a simple 
3 154 0281 ‘series of fs_rchar's to process it. 
s 155 osee FS_NEXT (OUTPOT) = .FS_START (OUTPUT); 
>; 156 028 RETURN GETQS_NORMAL 
s 157 0284 1 END; ‘End of GETQS 


-TITLE GETQS 
IDENT \V04-000\ 


~-EXTRN RINTES, IRA, KHAR 
-PSECT SCODES,NOWRT,2 


ee 


001C¢ 00000 .ENTRY GETQS, Save R2,R3,R4 ; 
54 006 8F 9A 00002 MOVZBL M#RINTES, R4 : 

53 000000006 EF 9E 00006 MOVAB KHAR, R$ ; 

5? 00000000G EF 9€ 0000D MOVAB IRA+{2, R2 ; 

50 63 DO 00014 MOVL -KHAR, RO : 

54 50 D1 00017 CMPL RO, R4& : 

OA 13 OOO1A BEQL =:*1$ : 

22 50 Di 0001C CMPL = RO, «#34 : 

09 13 OOO1F BEQL 2$ ; 

27 0 01 00 1 CMPL RO, #39 : 

04 13 00024 BEQL 2s ; 

50 03 00 00026 1$: MOVL #3, RO 3 

04 0 9 RET : 

51 04 AC 00 A 2%: MOVL oureu Te R1 3 

oc AI p4 O2E CLRL =: 12(R1) : 

61 10 Al 0031 MOVAB 16(R1), (R1) : 

04 Al 61 dO 00 3 MOVL (R1), 4(R1) : 
63 1 BRB 11$ : 

63 F8 B2 9A 00038 3S: MOVZBL @IRA+4, KHAR ; 
FBO Dg 6 F INCL  IRA+4 : 

62 D 42 DECL JRA#12 F 

54 6 D4 044 4$: CMPL = KHAR, R4& : 

64 3 00047 BEQL 12$ : 

50 g o 49 CMPL KHAR, TERMINATOR . 

¢ 1 4C BEQL 1g : 

08 Al 0c Al D1 0004E CMPL  12(R1), 8(R1) : 


6 
GETQ 18-sep- Sep 4 8 VAX-11 Bliss-32 V4.0-742 
Fee 800 Module Level Declarations 1 Sep =1982 90:48 9 bts SKSVMSMASTER: CRUNOFF” SRCIGETQS.BLI; Page 
3F 12 0005 BNEQ 10$ : 
54 63 p 55 5$: CPL KHAR, R4 + 0259 
50 e§ p : CPL KHAR, TERMINATOR : 0260 
: D5 0005F TSTL RA+12 + 0261 
14 061 BGTR $ : 
63 4 9A 0006 MOVZBL R4, KHAR : 
62 01 fe 9066 MNEGL #1, IRA+12 : 
EA 006 BRB : 
63 F8 B2 9A 00068 6$ MOVZBL @IRA+4, KHAR : 
FBO Dg 0 $f INCL IRA+4 : 
62 D 2 DECL RA+12 : 
DF 11 00074 BRB : 
50 63 D1 0076 7$ CMPL = KHAR, TERMINATOR + 0263 
15 ig 007 BNEQ : 
6@ D 90078 TSTL IRa+12 : 0265 
Q 14 0007D BGTR $ : 
63 4 9A O007F MOVZBL R4, KHAR : 
62 01 CE 0082 MNEGL #1. IRA+12 : 
09 11 9008 BRB 9$ : 
63 F8 B2 9A 00087 8$ MOVZBL @IRA+4, KHAR : 
FB OA 06 0088 INCL [RA+4 : 
62 D7 0008 DECL IRA+12 : 
50 02 B6 9009 9$ MOVL #2, RO : 0267 
04 81 63 90 00094 10$: | MOVB  KHAR, @4(R1) : 0270 
04 Al D6 00098 INCL 4(R15 : 
Oc Al D6 00098 INCL 12(R1) : 
62 DS OO09E 118: TSTL JRA+I2 : 0271 
99 14 OO00A0 BGTR & : 
6% 54 9A OOOA MOVZBL R4, KHAR : 
62 o cE 900A RINE L #1, IRA+12 : 
54 63 D1 QOOAA 128: CMPL _—sKHAR, RG > 0274 
17 13 OOOAD BEQL : 
62 D5 OOOAF TSTL IRA+12 : 0276 
08 14 90081 BGTR ; 
63 54 9A 00083 MOVZBL R4, KHAR F 
62 01 cE 90086 MNEGL #1, IRA+12 : 
OF 11 00089 BRB 15 ; 
63 F8 B2 9A 000BB 13$: # MOVZBL @IRA+4, KHAR : 
FBO 06 OBF INCL IRA+4 ; 
D ce DECL RA+12 : 
4 11 ¢ BRB 5$ : 
50 1 BO O0¢6 148 MOVL #1, RO : 0278 
04 «Al 61 DO OOOCA 15$:  MOVL (R1), 4(R1) : 028 
50 D4 OOcE CLRL = RO : 028 
4 0000 RET : 0284 
; Routine Size: 209 bytes, Routine Base: S$CODE$ + 0000 
158 0285 1 
159 0386 1 END ‘End of module 
160 0 ELUDOM 


3s 


88 
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GETQ 1$-se 1984 00:41:08 VAX=11 Bliss=32 V4.0-742 Pa 7 GLE 
V54-000 Module Level Declarations 107 38p-}$8c 99:68:54 DISKSVMSMASTER:CRUNOFF.SRCIGETOS.BLI;1~ (4) ve 


PSECT SUMMARY 


: Name Bytes Attributes 

: SCODES 209 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 

FER hr Ronee eae eee Symbols -o<----- Pages Processing 

; File Total Loaded Percent Mapped Time 

; ~$33580UAz8: SYSLIBIXPORT.L32;1 590 9 0 252 00:00.1 

> 7$255$DUA28: CRUNOFF .SRCIDS Ria. L32;1 1248 1 1 86 00:00.3 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:GETQS/OBJ=OBJ$:GETQS MSRC$:GETQS/UPDATE=(ENH$:GETQS) 


Size: 209 code + 0 data bytes 
Run Time: 705.9 

Elapsed Time: 00:14.8 

Lines/CPU Min: $528 
Lexemes/CPU-Min: 19767 

peaery Used: 77 pages 

Compilation Complete 
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